home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / byt86jan.arc / LISTING2.PRO < prev    next >
Text File  |  1985-12-27  |  3KB  |  166 lines
  1.  
  2.      window_type1
  3.       ako
  4.            value : window
  5.       panes
  6.            value : 12
  7.       style
  8.            value : sash
  9.      
  10.      window_type2
  11.       ako
  12.            value : window
  13.       panes
  14.            value : 24
  15.       style
  16.            value : sash
  17.  
  18.      window_type3
  19.       ako
  20.            value : window
  21.       panes
  22.            value : 3
  23.       style
  24.            value : picture
  25.  
  26.      window_type4
  27.       ako
  28.            value : window
  29.       panes
  30.            value : 3
  31.       style
  32.            value : sash
  33.  
  34.      window_type5
  35.       ako
  36.            value : window
  37.       panes
  38.            value : 2
  39.       style
  40.            value : sash
  41.  
  42.      window
  43.       ako
  44.            value : thing
  45.       area
  46.            if_needed : window_area
  47.  
  48.      window_area(Window,Area) :-
  49.       fget(Window,height,Height),
  50.       fget(Window,width,Width),
  51.       Area is Height * Width,
  52.       freplace(Window,area,Area).
  53.  
  54.      door_type1
  55.       ako
  56.            value : door
  57.       panels
  58.            value : 4
  59.       symmetry
  60.            value : yes
  61.       doorway
  62.            value : [columns,fan_light]
  63.  
  64.      door_type2
  65.       ako
  66.            value : door
  67.       panels
  68.            value : 6
  69.       symmetry
  70.            value : yes
  71.       doorway
  72.            value : [columns, portico, side_windows]
  73.  
  74.      door_type3
  75.       ako
  76.            value : door
  77.       panels
  78.            value : 0
  79.       symmetry
  80.            value : no
  81.       doorway
  82.            value : []
  83.  
  84.      door
  85.       ako
  86.            value : thing
  87.       area
  88.            if_needed : door_area
  89.  
  90.      door_area(Door,Area) :-
  91.       fget(Door,height,Height),
  92.       fget(Window,width,Width),
  93.       Area is Height * Width,
  94.       freplace(Door,area,Area).
  95.  
  96.      siding_type1
  97.       ako
  98.            value : siding
  99.       material
  100.            value : clapboard
  101.       width
  102.            value : narrow
  103.       cornerboard
  104.            value : yes
  105.  
  106.      siding_type2
  107.       ako
  108.            value : siding
  109.       material
  110.            value : aluminum
  111.       width
  112.            value : wide
  113.       cornerboard
  114.            value : no
  115.  
  116.      siding
  117.       ako
  118.            value : thing
  119.  
  120.      house_type1
  121.       ako
  122.            value : house
  123.       stories
  124.            value : 3
  125.       siding
  126.            value : siding_type1
  127.       roof
  128.            value : gable
  129.       window1
  130.            optional : yes
  131.            xposition : 2
  132.            yposition : 3
  133.            type : window_type2
  134.       window2
  135.            xposition : 1
  136.            yposition : 2
  137.            type : window_type2
  138.       window3
  139.            xposition : 3
  140.            yposition : 2
  141.            type : window_type2
  142.  
  143.      proto_house
  144.       ako
  145.            value : house_type1
  146.       window4
  147.            xposition : 1
  148.            yposition : 1
  149.            type : window_type2
  150.       door
  151.            xposition : 3
  152.            yposition : 1
  153.            type : door_type1
  154.  
  155.      proto_house_mirror_image
  156.       ako
  157.            value : house_type1
  158.       window4
  159.            xposition : 3
  160.            yposition : 1
  161.            type : window_type2
  162.       door
  163.            xposition : 1
  164.            yposition : 1
  165.            type : door_type1
  166.